home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / new_file / programm / gemfsc19 / gemfsc19.lzh / GEMFUNCS / RCPTINRE.C < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-03  |  551 b   |  22 lines
  1. /**************************************************************************
  2.  * RCPTINRE.C - Return TRUE/FALSE indicating point is in/out of rectangle.
  3.  *************************************************************************/
  4.  
  5. #include "gemfintl.h"
  6.  
  7. short rc_ptinrect(prect, x, y)
  8.     register GRECT *prect;
  9.     register short   x;
  10.     register short   y;
  11. {
  12.     VRECT   r;
  13.     
  14.     rc_gtov(prect, &r);
  15.     
  16.     if (x < r.v_x1 || x > r.v_x2 || y < r.v_y1 || y > r.v_y2) {
  17.         return 0;
  18.     } else {
  19.         return 1;
  20.     } 
  21. }
  22.